home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh46b.d64
/
adress x2000
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
89 lines
5 PRINTCHR$(14):PRINTCHR$(8)
10 INPUT"[147][197]PSON (J/N)";D$
20 P$="[184][184]"
30 DIM A$(100),B$(100),A(100),B(100)
40 PRINTCHR$(147):POKE646,5
50 POKE53281,0:POKE53280,0
60 PRINT:PRINTSPC(17);"[153][205]ENUE"
70 PRINTSPC(17);"*****"
80 PRINT:PRINTSPC(12);"[150]1.[211]PEICHERN"
90 PRINT:PRINT:PRINTSPC(12);"2.[204]ADEN"
100 PRINT:PRINT:PRINTSPC(12);"[152]3.[204]OESCHEN"
110 PRINT:PRINT:PRINTSPC(12);"[155]4.[211]PEICHERINHALT ZEIGEN"
120 PRINT:PRINT:PRINTSPC(12);"[154]5.[211]PEICHERINHALT DRUCKEN"
130 PRINT:PRINT:PRINTSPC(12);"[156]6.[208]OSTKARTENKLEBER"
140 PRINT:PRINT:PRINTSPC(12);"7.[197]XIT TO [194]ASIC"
150 GETU$:IFU$=""THEN150
160 A=VAL(U$)
170 IFA=1THEN250
180 IFA=2THEN400
190 IFA=3THEN820
200 IFA=4THEN660
210 IFA=5THEN670
220 IFA=6THEN680
230 IFA=7THEN640
240 GOTO40
250 INPUT"[147][150][214]ORNAME";A$(0)
260 INPUT"[206]AME";A$(1)
270 INPUT"[211]TRASSE";A$(2)
280 INPUT"[207]RT";A$(3)
290 INPUT"[151][208]LZ";A(0)
300 INPUT"[129][212]EL.";A$(4)
310 OPEN1,8,2,+A$(1)+" "+LEFT$(A$(0),1)+".,S,W"
320 PRINT#1,A$(0)
330 PRINT#1,A$(1)
340 PRINT#1,A$(2)
350 PRINT#1,A$(3)
360 PRINT#1,A$(4)
370 PRINT#1,A(0)
380 CLOSE1
390 GOTO40
400 INPUT"[147][149][194]ITTE DEN [214]ORNAMEN ANGEBEN";B$(1)
410 INPUT"[129][202]ETZT DEN [206]ACHNAMEN";B$(0)
420 IFL=10THENRETURN
430 OPEN1,8,2,+B$(0)+" "+LEFT$(B$(1),1)+".,S,R"
440 INPUT#1,A$(0)
450 INPUT#1,A$(1)
460 INPUT#1,A$(2)
470 INPUT#1,A$(3)
480 INPUT#1,A$(4)
490 INPUT#1,A(0)
500 CLOSE1
510 PRINT"[147]"
520 IFY=2THENPRINT"[147][211]PEICHERINHALT WIRD GEDRUCKT":OPEN4,4:CMD4
530 POKE646,9:PRINT"[214]ORNAME: ";A$(0)
540 PRINT"[206]AME : ";A$(1)
550 POKE646,3:PRINT"[211]TRASSE: ";A$(2)
560 POKE646,4:PRINT"[207]RT : ";A$(3)
570 POKE646,10:PRINT"[208]LZ :";A(0)
580 PRINT"[212]EL. : ";A$(4)
590 IFY=2THENY=0:RETURN
600 PRINT"->> [212]ASTE FUER [205]ENUE <<-[146]"
610 GETT$:IFT$=""THEN610
620 IFY=1THENY=0:RETURN
630 GOTO 40
640 PRINT"[147]";SPC(10);"[158][193]UF [215]IEDERSEHEN"
650 END
660 Y=1:GOSUB510:GOTO40
670 Y=2:GOSUB510:PRINT#4:CLOSE4:GOTO40
680 INPUT"[147][158][193]NREDE";R$
690 F$=STR$(A(0))
700 FORI=1TOLEN(F$+A$(3)):P$=P$+"[184]":NEXTI
710 OPEN4,4:CMD4
720 PRINT R$
730 PRINT
740 PRINT A$(0);" ";A$(1)
750 PRINT
760 PRINT A$(2)
770 PRINT
780 IFD$="J"THENGOSUB850:GOTO810
790 PRINT A(0);A$(3)
800 PRINTP$
810 PRINT#4:CLOSE4:P$="[184][184]":GOTO40
820 L=10:GOSUB400:L=0
830 OPEN1,8,15,"S:"+B$(0)+" "+LEFT$(B$(1),1)+"."
840 CLOSE1:GOTO40
850 PRINT#4,CHR$(27)"A"CHR$(5);CHR$(27)"-"CHR$(1);
860 PRINT#4," "A(0);A$(3)" "
870 PRINT#4,CHR$(27)"-"CHR$(0):RETURN